home *** CD-ROM | disk | FTP | other *** search
/ Crack It! / Crack It!.iso / CONTENT / JSTEST / JST300D.EXE / JOYSTICK.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-09-09  |  1011 b   |  43 lines
  1. {
  2.  ***
  3.  
  4.  JOYSTICK.PAS
  5.  Joystick Interface Unit for Turbo Pascal
  6.  (C)Copyright Gerard Paul Java 1996
  7.  
  8.  Unit Source File
  9.  
  10.  
  11.  This unit contains routines that provide Turbo Pascal with a joystick
  12.  interface.  It places the assembly-language routines in a unit to keep the
  13.  user from declaring the external procedures manually.
  14.  
  15.  ***
  16. }
  17.  
  18. {$A+,B-,D-,L-,F-,I-,N-,R-,S-,V-}
  19. {$L STICKRT.OBJ}
  20.  
  21. unit Joystick;
  22.  
  23. interface
  24.  
  25. const
  26.   DetectIDA = $0201;                  { Joystick detection parameters. }
  27.   DetectIDB = $0804;
  28.  
  29. function StickCoord(AxisCode: byte): word;
  30. function StickButtonDown(ButtonCode: byte): boolean;
  31. function StickIsPresent(TestBy: word): boolean;
  32. procedure InitAndCheckGameSys(var ErrCode: boolean);
  33.  
  34. implementation
  35.  
  36. function StickCoord(AxisCode: byte): word; external;
  37. function StickButtonDown(ButtonCode: byte): boolean; external;
  38. function StickIsPresent(TestBy: word): boolean; external;
  39. procedure InitAndCheckGameSys(var ErrCode: boolean); external;
  40.  
  41. end.
  42.  
  43.